object frmMain: TfrmMain Left = 13 Top = 46 HelpContext = 700 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Crowd Control' ClientHeight = 355 ClientWidth = 595 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 595 Height = 57 Align = alTop Style = bsRaised end object Bevel2: TBevel Left = 211 Top = 3 Width = 377 Height = 51 end object SpeedButton1: TSpeedButton Left = 12 Top = 6 Width = 78 Height = 45 Caption = 'Add User' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888 7777777770000008777777777022220877777777702222087777777770222208 8888700000222200000870222222222222087022222222222208702222222222 2208700000222200000877777022220777777777702222077777777770222207 7777777770222207777777777000000777777777777777777777} Layout = blGlyphTop ParentFont = False OnClick = NewUserWizard1Click end object SpeedButton2: TSpeedButton Left = 100 Top = 6 Width = 78 Height = 45 Caption = 'Remove User' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000586078009098 A800000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000C8D0D800A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303F8F80303030303030303030303030303030303FF03030303030303030303 0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303 03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF 030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8 FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303 030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101 F803030303030303F8FF030303F803030303FFF80303030303030303F9010101 010101F8030303030303030303F8FF030303030303FFF8030303030303030303 030101010101F80303030303030303030303F8FF0303030303F8030303030303 0303030303F901010101F8030303030303030303030303F8FF030303F8030303 0303030303030303F90101010101F8030303030303030303030303F803030303 F8FF030303030303030303F9010101F8010101F803030303030303030303F803 03030303F8FF0303030303030303F9010101F803F9010101F803030303030303 03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303 03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901 0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303 030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303 03030303030303030303030303030303030303030303030303F8F8F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False OnClick = RemoveUser1Click end object bevelOnOff: TBevel Left = 222 Top = 7 Width = 41 Height = 43 Style = bsRaised end object imgOnOff: TImage Left = 226 Top = 13 Width = 32 Height = 32 Hint = 'Click Here to Turn Crowd Control On and Off' AutoSize = True ParentShowHint = False ShowHint = True OnClick = imgOnOffClick end object imgOn: TImage Left = 504 Top = 8 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Visible = False end object imgOff: TImage Left = 541 Top = 8 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Visible = False end object lblOnOff: TLabel Left = 274 Top = 24 Width = 3 Height = 13 Transparent = True end object Label2: TLabel Left = 12 Top = 75 Width = 76 Height = 13 Caption = 'Selected User: ' end object lblSelection: TLabel Left = 90 Top = 75 Width = 5 Height = 13 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object PageControl1: TPageControl Left = 225 Top = 69 Width = 364 Height = 276 HelpContext = 700 ActivePage = TabSheet1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MultiLine = True ParentFont = False TabOrder = 0 object TabSheet1: TTabSheet HelpContext = 500 Caption = 'User' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False object Label1: TLabel Left = 39 Top = 26 Width = 31 Height = 13 Caption = 'Name:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblName: TLabel Left = 135 Top = 26 Width = 178 Height = 13 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label4: TLabel Left = 39 Top = 60 Width = 49 Height = 13 Caption = 'User Icon:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object bevelIcon: TBevel Left = 135 Top = 51 Width = 38 Height = 38 Style = bsRaised end object imgUserIcon: TImage Left = 138 Top = 54 Width = 32 Height = 32 Hint = 'Click Here to Select Another User Icon' ParentShowHint = False ShowHint = True OnClick = GetUserIcon OnDblClick = GetUserIcon OnMouseDown = IconMouseDown OnMouseUp = IconMouseUp end object Label5: TLabel Left = 40 Top = 112 Width = 289 Height = 49 AutoSize = False Caption = 'Changes made to a user'#39's settings will not take effect until Win' + 'dows is restarted or a new user logs on.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label12: TLabel Left = 192 Top = 56 Width = 153 Height = 33 AutoSize = False Caption = 'Click the picture to select a different icon for this user' WordWrap = True end object lblEvalVersion: TLabel Left = 72 Top = 169 Width = 218 Height = 29 Caption = 'Evaluation Version' Font.Color = clRed Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end end object TabSheet2: TTabSheet HelpContext = 505 Caption = 'Programs' object Label9: TLabel Left = 24 Top = 15 Width = 316 Height = 58 AutoSize = False Caption = 'To limit the user to certain applications, check the box below. ' + ' Then click the Add Program button to add applications to the li' + 'st of programs the user may run. If this option is selected, t' + 'he user will only be able to run the listed programs.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object chkRestrictApps: TCheckBox Left = 26 Top = 77 Width = 251 Height = 17 Caption = 'Only Run Listed Applications' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = chkRestrictAppsClick end object lstApplications: TListBox Left = 24 Top = 104 Width = 161 Height = 113 ItemHeight = 13 TabOrder = 1 end object btnRemoveApplication: TBitBtn Left = 202 Top = 136 Width = 135 Height = 28 Caption = 'Remove Application' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnRemoveApplicationClick Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007788777777777777700000007911877777987777700000007911 1877791187777000000079111187911118777000000077911118111118777000 0000777911111111877770000000777791111118777770000000777771111187 7777700000007777791111877777700000007777911111877777700000007779 1118111877777000000077911187911187777000000077911877791118777000 0000777917777791117770000000777777777779197770000000777777777777 777770000000} Margin = 6 Spacing = -1 end object btnAddApplication: TBitBtn Left = 202 Top = 104 Width = 135 Height = 28 Caption = 'Add Application' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = btnAddApplicationClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888 7777777770000008777777777022220877777777702222087777777770222208 8888700000222200000870222222222222087022222222222208702222222222 2208700000222200000877777022220777777777702222077777777770222207 7777777770222207777777777000000777777777777777777777} Margin = 6 Spacing = -1 end end object TabSheet3: TTabSheet HelpContext = 510 Caption = 'Win 95 Restrictions' object Label6: TLabel Left = 32 Top = 14 Width = 228 Height = 13 Caption = 'Select Restrictions that should apply to this user:' end object chkNoRun: TCheckBox Left = 38 Top = 38 Width = 267 Height = 17 Caption = 'Disable '#39'Run'#39' Command on Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = chkNoRunClick end object chkNoFind: TCheckBox Left = 38 Top = 61 Width = 276 Height = 17 Caption = 'Remove '#39'Find'#39' Command From Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = chkNoFindClick end object chkNoDesktop: TCheckBox Left = 38 Top = 107 Width = 267 Height = 17 Caption = 'Hide All Items on Desktop' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = chkNoDesktopClick end object chkNoSettings: TCheckBox Left = 38 Top = 84 Width = 267 Height = 17 Caption = 'Disable '#39'Settings'#39' Command on Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = chkNoSettingsClick end object chkNoRegEdit: TCheckBox Left = 38 Top = 129 Width = 267 Height = 17 Caption = 'Disable Registry Editing Tools' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = chkNoRegEditClick end object chkNoDOS: TCheckBox Left = 38 Top = 152 Width = 267 Height = 17 Caption = 'Disable MS-DOS prompt' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = chkNoDOSClick end object chkNoSDOM: TCheckBox Left = 38 Top = 175 Width = 267 Height = 17 Caption = 'Disable Single-Mode MS-DOS Applications' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = chkNoSDOMClick end object chkNoConfigure: TCheckBox Left = 38 Top = 198 Width = 281 Height = 18 Caption = 'Disable System Configuration Settings in Control Panel' TabOrder = 7 OnClick = chkNoConfigureClick end end object TabSheet5: TTabSheet HelpContext = 520 Caption = 'Hidden Drives' object Label17: TLabel Left = 16 Top = 17 Width = 262 Height = 13 Caption = 'Select drives to hide from the user in Windows Explorer ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 189 Top = 46 Width = 146 Height = 91 Caption = 'The selected drives will not be displayed in Windows Explorer or' + ' the common file dialogs. This makes it difficult for the user ' + 'to accidentally delete or modify files on the selected drives. ' WordWrap = True end object lstHideDrives: TDriveList Left = 16 Top = 48 Width = 161 Height = 121 ExtendedSelect = False ItemHeight = 13 Items.Strings = ( 'a:' 'c: []') MultiSelect = True Style = lbOwnerDrawFixed TabOrder = 0 OnClick = lstHideDrivesClick end end object TabSheet6: TTabSheet Caption = 'Control Panel' TabVisible = False object Label10: TLabel Left = 56 Top = 105 Width = 192 Height = 13 Caption = 'Memory Settings in System Control Panel' end object chkRestrictDisplay: TCheckBox Left = 40 Top = 32 Width = 273 Height = 17 Caption = 'Hide Settings Page on Display Control Panel' TabOrder = 0 OnClick = chkRestrictDisplayClick end object chkPrinters: TCheckBox Left = 40 Top = 61 Width = 217 Height = 17 Caption = 'Disable Addition and Deletion of Printers' TabOrder = 1 OnClick = chkPrintersClick end object chkRestrictSystem: TCheckBox Left = 40 Top = 87 Width = 281 Height = 18 Caption = 'Disable Device Manager, File System and Virtual ' TabOrder = 2 OnClick = chkRestrictSystemClick end object chkNetSettings: TCheckBox Left = 40 Top = 128 Width = 217 Height = 17 Caption = 'Disable Network Control Panel' TabOrder = 3 OnClick = chkNetSettingsClick end object chkPasswordSettings: TCheckBox Left = 40 Top = 160 Width = 289 Height = 17 Caption = 'Hide all Password Settings Except '#39'Change Password'#39 TabOrder = 4 OnClick = chkPasswordSettingsClick end end object TabSheet7: TTabSheet HelpContext = 515 Caption = 'Win 95 Folders' object btnBrowseDir: TSpeedButton Left = 299 Top = 35 Width = 24 Height = 24 Hint = 'Select a New Folder' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777770077007700777777007700770 0777777007700770077777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = btnBrowseDirClick end object btnExploreCustomFolder: TSpeedButton Left = 324 Top = 35 Width = 24 Height = 24 Hint = 'Explore Folder' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 0077777777777774EC0777777777774ECC077000000004ECC077833333334ECC 33078FB780087CC3B3078F787E70833B73078F8FE7E703B7B3078F8EFE7E037B 73078F8FEFE708B7B3078F78FEF08B7B73078FB78808B7B7B3078FFFFFFFFFFF F30787B7B7B788888877787B7B78777777777788888777777777} ParentShowHint = False ShowHint = True OnClick = btnExploreCustomFolderClick end object Label3: TLabel Left = 20 Top = 12 Width = 65 Height = 13 Caption = 'Select Folder:' end object comboFolders: TComboBox Left = 96 Top = 9 Width = 169 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Program Folder' 'Start Menu Folder' 'Desktop Folder' 'Favorites Folder' 'Recent Folder') TabOrder = 0 OnClick = comboFoldersClick end object txtFolderPath: TEdit Left = 16 Top = 37 Width = 276 Height = 21 Color = clBtnFace ReadOnly = True TabOrder = 1 end object fvCustomFolder: TFolderView Tag = 109 Left = 15 Top = 64 Width = 209 Height = 161 ReadOnly = True HideSelection = False Indent = 19 ParentColor = False TabOrder = 2 Images = fvCustomFolder. end object btnAddShortcut: TBitBtn Left = 232 Top = 66 Width = 116 Height = 28 Caption = 'Add Shortcut' TabOrder = 3 OnClick = btnAddShortcutClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000777778FFFFFFFFF 0777778FFF0FFFFF0777778FF0FFFFFF0777778FF00FFFFF0777778FF000F0FF 0777778FFF0000FF0777778FFFF000FF0777778FFF0000FF0777778FFFFFFFFF 0777778888888888077777777777777777777777777777777777} Margin = 6 Spacing = -1 end object btnAddFolder: TBitBtn Left = 232 Top = 102 Width = 116 Height = 28 Caption = 'Add Folder' TabOrder = 4 OnClick = btnAddFolderClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777000000000000077833333333333 33078FB7B7B7B7B7B3078F7B7B7B7B7B73078FB7B7B7B7B7B3078F7B7B7B7B7B 73078FB7B7B7B7B7B3078F7B7B7B7B7B73078FB7B7B7B7B7B3078FFFFFFFFFFF F30787B7B7B788888877787B7B78777777777788888777777777} Margin = 6 Spacing = -1 end object btnRemoveItem: TBitBtn Left = 232 Top = 137 Width = 116 Height = 28 Caption = 'Remove Item' TabOrder = 5 OnClick = btnRemoveItemClick Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000586078009098 A800000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000C8D0D800A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303F8F80303030303030303030303030303030303FF03030303030303030303 0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303 03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF 030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8 FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303 030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101 F803030303030303F8FF030303F803030303FFF80303030303030303F9010101 010101F8030303030303030303F8FF030303030303FFF8030303030303030303 030101010101F80303030303030303030303F8FF0303030303F8030303030303 0303030303F901010101F8030303030303030303030303F8FF030303F8030303 0303030303030303F90101010101F8030303030303030303030303F803030303 F8FF030303030303030303F9010101F8010101F803030303030303030303F803 03030303F8FF0303030303030303F9010101F803F9010101F803030303030303 03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303 03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901 0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303 030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303 03030303030303030303030303030303030303030303030303F8F8F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} Margin = 6 NumGlyphs = 2 Spacing = -1 end object btnAdvanced: TBitBtn Left = 232 Top = 173 Width = 116 Height = 28 Caption = 'Advanced' TabOrder = 6 Visible = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4FFFFFF4 FFFFFFF44FFFFFF44FFFFF444FFFFFF444FFF44444444444444F444444444444 4444F44444444444444FFF444FFFFFF444FFFFF44FFFFFF44FFFFFFF4FFFFFF4 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 6 Spacing = -1 end end end object lvUsers: TListView Left = 7 Top = 92 Width = 206 Height = 255 Columns = <> ReadOnly = True HideSelection = False OnChange = lvUsersChange TabOrder = 1 end object MainMenu1: TMainMenu Left = 384 Top = 8 object CrowdControl1: TMenuItem Caption = '&Crowd Control' ShortCut = 0 object AddUser1: TMenuItem Caption = '&Add User' ShortCut = 16449 OnClick = NewUserWizard1Click end object RemoveUser1: TMenuItem Caption = '&Remove User' ShortCut = 0 OnClick = RemoveUser1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object CrowdControlPassword1: TMenuItem Caption = '&Crowd Control Password' ShortCut = 0 OnClick = CrowdControlPassword1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object HelpTopics1: TMenuItem Caption = '&Help Contents' ShortCut = 0 OnClick = HelpTopics1Click end object OrderingCrowdControl1: TMenuItem Caption = '&Ordering Crowd Control' ShortCut = 0 OnClick = OrderingCrowdControl1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object AboutCrowdControl1: TMenuItem Caption = '&About Crowd Control' ShortCut = 0 OnClick = AboutCrowdControl1Click end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Options = [ofFileMustExist] Left = 413 Top = 8 end object LargeUsers: TImageList Height = 32 Width = 32 Left = 354 Top = 8 end object Timer1: TTimer Enabled = False Interval = 750 OnTimer = Timer1Timer Left = 443 Top = 8 end object BrowseDir1: TBrowseDirectoryDlg Root = idDrives Options = [bfDirectoriesOnly] Left = 472 Top = 8 end object JustOne321: TJustOne32 Left = 325 Top = 8 end end